Tricks of the Mac Game Programming Gurus/TricksOfTheMacGameProgrammingGurus.iso/More Source/C⁄C++/Xconq 7.0d37/source/test/all.g

Text File | 1995-01-31 | 14.7 KB | 764 lines | [TEXT/R*ch]

;;; This is a test game that mentions *everything*.

(game-module "all"
  (design-notes "")
  (notes "")
  )

(unit-type xxxomnibus
  (start-with 1)
  (acp-damage-effect nil)
  (acp-max 0)
  (acp-min 0)
  (acp-per-turn 0)
  (acp-per-turn-max 0)
  (acp-per-turn-min 0)
  (acp-to-change-side 0)
  (acp-to-detonate 0)
  (acp-to-disband 0)
  (acp-to-fire 0)
  (acp-to-move 0)
  (acp-to-transfer-part 0)
  (action-priority 0)
  (already-seen 0)
  (already-seen-independent 0)
  (assign-number 0)
;  (attitudes-max 0)
  (available 0)
  (can-be-self 0)
  (capacity 0)
  (char "")
;  (cloud-vision-effect nil)
  (color "")
  (country-units-max 0)
  (cp 1)
  (comfort-zone-max 0)
  (comfort-zone-min 0)
  (cp-per-self-build 0)
  (cp-to-self-build 0)
  (cxp-max 0)
  (cxp-on-capture-effect 0)
  (description-format nil)
  (detonate-on-death 0)
  (elevation-at-max-range 0)
  (extensions nil)
  (free-acp 0)
  (free-mp 0)
  (generic-name "")
  (help "")
  (hit-falloff-range 0)
;  (hp-at-max-speed 0)
;  (hp-at-min-speed 0)
  (hp-max 1)
  (hp-per-disband 0)
  (hp-per-detonation 0)
  (hp-recovery 0)
  (image-name "")
  (independent-growth-chance 0)
  (independent-near-start 0)
  (independent-takeover-chance 0)
  (initial-seen-radius 0)
;  (lockon-chance 0)
  (long-name "")
  (move-range 0)
  (mp-to-leave-world 0)
  (namer "")
  (name "")
  (name-internal "")
  (notes nil)
  (occupant-total-max 0)
  (point-value 0)
  (parts-max 1)
  (possible-sides nil)
  (range 0)
  (range-min 0)
  (revolt-chance 0)
  (see-action 0)
  (see-combat 0)
  (see-always 0)
  (see-movement 0)
  (see-occupants 0)
  (self-changeable 0)
  (self-resurrects 0)
  (short-name "")
  (speed 0)
  (speed-max 0)
  (speed-damage-effect nil)
  (speed-min 0)
  (spy-chance 0)
  (spy-range 0)
  (stack-order 0)
  (start-with 0)
  (storage 0)
  (survival-zone-max 0)
  (survival-zone-min 0)
  (tech-from-dissection 0)
  (tech-leakage 0)
  (tech-max 0)
  (tech-per-turn-max 0)
  (tech-to-build 0)
  (tech-to-dissect 0)
  (tech-to-see 0)
  (tech-to-use 0)
  (type-in-game-max 0)
  (type-per-side-max 0)
  (unit-growth-chance 0)
  (unit-takeover-chance 0)
  (vision-range 0)
  (vision-bend 0)
  (vision-at 0)
  (vision-adjacent 0)
  (vision-at-max-range 0)
  (weather-vision-range 0)
  (wind-angle-effect nil)
  (wind-speed-effect nil)
  (wrecked-type 0)
  (zz-b 0)
  (zz-bb 0)
  (zz-transport 0)
  (zz-c 0)
  (zz-cm 0)
  (zz-cc 0)
  (zz-uh 0)
  (zz-bw 0)
  (zz-abt 0)
  )
(unit-type xxxship)
(unit-type xxxcity
  (start-with 3))
(unit-type xxxF-15)
(unit-type xxxsatellite)

(terrain-type xxxroad
  (alt-percentile-max 0)
  (alt-percentile-min 0)
  (available 0)
  (capacity 0)
  (char "")
  (clouds-max 0)
  (clouds-min 0)
  (color "")
  (country-growth-chance 0)
  (country-people-chance 0)
  (country-takeover-chance 0)
  (country-terrain-max 0)
  (country-terrain-min 0)
  (description-format nil)
  (elevation-max 0)
  (elevation-min 0)
  (extensions nil)
  (help "")
  (image-name "")
  (independent-people-chance 0)
  (liquid 0)
  (maze-passage-occurrence 0)
  (maze-room-occurrence 0)
  (name "")
  (notes nil)
  (occurrence 0)
  (people-max 0)
  (river-chance 0)
  (storage 0)
  (subtype 0)
  (subtype-x 0)
  (temperature-average 0)
  (temperature-max 0)
  (temperature-min 0)
  (temperature-variability 0)
  (thickness 0)
  (wet-percentile-max 0)
  (wet-percentile-min 0)
  (wind-force-average 0)
  (wind-force-max 0)
  (wind-force-min 0)
  (wind-force-variability 0)
  (wind-variability 0)
  (zz-fr 0)
  (color "xxxgray")
  )
(terrain-type |xxxdeep sea|
  (color "xxxnavy xxxblue"))
(terrain-type xxxshelf
  (color "xxxlight xxxblue"))
(terrain-type xxxshallows
  (color "xxxcyan"))
(terrain-type xxxriver
  (color "xxxblue"))

(material-type xxxmaterial
  (available 0)
  (color "")
  (description-format nil)
  (extensions nil)
  (help "")
  (image-name "")
  (name "")
  (notes nil)
  (people 0)
  )

;(print false)
;(print true)

;;; Variables.

(set action-messages nil)
(set advantage-default 1)
(set advantage-max 3)
(set advantage-min 1)
(set alt-blob-density 0)
(set alt-blob-height 0)
(set alt-blob-size 0)
(set alt-smoothing 0)
(set calendar nil)
(set calendar-part-names nil)
(set country-radius-max 0)
(set country-radius-min 0)
(set country-separation-max 0)
(set country-separation-min 0)
(set edge-terrain 0)
(set elapsed-real-time 0)
(set event-messages nil)
(set extra-turn-chance 0)
(set feature-namers nil)
(set feature-types nil)
(set grid-color "")
(set growth-stop-chance 0)
(set initial-date "")
(set initial-day-part 0)
(set initial-year-part 0)
(set last-turn 100)
(set maze-passage-density 0)
(set maze-room-density 0)
(set player-mix-default nil)
(set player-mix-required nil)
(set player-sides-locked 0)
(set random-events nil)
(set random-state 0)
(set real-time-for-game 0)
(set real-time-per-side 0)
(set real-time-per-turn 0)
(set river-sink-terrain 0)
(set scorefile-name "")
(set see-all 0)
(set see-terrain-always 0)
(set see-weather-always 0)
(set self-required 0)
(set side-library nil)
(set sides-max 9)
(set sides-min 1)
(set synthesis-methods nil)
(set temperature-at-midsummer nil)
(set temperature-at-midwinter nil)
(set temperature-floor 0)
(set temperature-floor-elevation 0)
(set temperature-moderation-range 0)
(set terrain-seen 0)
(set turn 0)
(set units-in-game-max 100)
(set units-per-side-max 100)
(set unseen-char "")
(set unseen-color "")
(set unseen-image-name "")
(set use-side-priority 0)
(set wet-blob-density 0)
(set wet-blob-height 0)
(set wet-blob-size 0)
(set wet-smoothing 0)
(set wind-mix-range 0)

;;; Tables.

;(table ablation)
(table accident-damage)
(table accident-hit-chance)
(table accident-vanish-chance)
(table acp-for-retreat)
(table acp-to-add-terrain)
(table acp-to-attack)
(table acp-to-be-fired-on)
(table acp-to-build)
(table acp-to-capture)
(table acp-to-change-type)
(table acp-to-create)
(table acp-to-defend)
(table acp-to-enter-unit)
(table acp-to-load)
(table acp-to-remove-terrain)
(table acp-to-produce)
(table acp-to-repair)
(table acp-to-research)
(table acp-to-toolup)
(table acp-to-unload)
(table adjacent-terrain-effect)
(table alter-terrain-range)
(table altitude-max)
(table altitude-min)
;(table attack-elevation-effect)
(table attack-range)
(table attack-range-min)
(table attack-terrain-effect)
(table attrition)
(table base-consumption)
(table base-production)
(table bridge)
(table build-range)
;(table can-command)
(table can-enter-independent)
;(table capacity-negation)
(table capture-chance)
(table change-on-exhaustion-chance)
(table coating-depth-max)
(table coating-depth-min)
(table combat-visibility)
;(table compromise-chance)
(table consumption-as-occupant)
(table consumption-on-creation)
(table consumption-per-attack)
(table consumption-per-build)
(table consumption-per-move)
(table consumption-per-repair)
(table control-chance)
(table control-chance-at)
(table control-chance-adjacent)
;(table control-distance-max)
(table cp-on-creation)
(table cp-per-build)
(table create-range)
;(table cxp-damage-effect)
;(table cxp-hit-effect)
;(table cxp-material-effect)
(table cxp-per-capture)
(table cxp-per-combat)
(table damage)
(table terrain-damage)
(table defend-terrain-effect)
(table detonation-accident-chance)
(table detonation-damage-at)
(table detonation-damage-adjacent)
(table detonation-range)
(table detonate-on-approach)
(table detonate-on-capture)
(table detonate-on-hit)
(table eye-height)
(table favored-terrain)
(table ferry-on-entry)
(table ferry-on-departure)
(table friendly-hit-chance)
(table hp-min)
(table hp-to-garrison)
(table hit-at-max-range-effect)
(table hit-by)
(table hit-chance)
(table hp-per-repair)
(table hp-to-repair)
(table hp-per-starve)
(table in-length)
(table independent-density)
(table load-max)
(table material-size-in-terrain)
(table material-size-in-unit)
(table material-per-production)
(table material-to-act)
(table material-to-build)
(table material-to-change-type)
(table material-to-create)
(table material-to-fight)
(table material-to-move)
(table material-to-produce)
(table material-to-repair)
(table mp-per-occupant)
(table mp-to-ascend)
(table mp-to-descend)
(table mp-to-enter-terrain)
(table mp-to-enter-unit)
(table mp-to-enter-zoc)
(table mp-to-leave-terrain)
(table mp-to-leave-unit)
(table mp-to-leave-zoc)
(table mp-to-traverse)
(table mp-to-traverse-zoc)
(table night-acp-effect)
(table night-vision-effect)
(table occupant-acp-effect)
(table occupant-can-have-occupants)
(table occupant-combat)
(table occupant-can-construct)
(table occupant-escape-chance)
(table occupant-base-production)
(table occupant-vision)
(table occupant-max)
(table out-length)
(table people-base-consumption)
(table people-base-production)
(table people-surrender-chance)
(table people-surrender-effect)
(table productivity)
(table productivity-max)
(table productivity-min)
(table protection)
(table recycleable-material)
(table retreat-chance)
(table road-chance)
(table road-into-chance)
(table scuttle-chance)
(table spy-quality)
(table stack-ablation)
(table stack-protection)
(table supply-interdiction)
(table supply-on-creation)
(table supply-on-completion)
(table supply-per-disband)
(table supply-move-rate)
(table surrender-chance)
(table surrender-chance-per-attack)
(table surrender-range)
(table tech-crossover)
(table tech-per-research)
(table temperature-protection)
(table terrain-base-consumption)
(table terrain-base-production)
(table terrain-capacity-x)
(table terrain-exhaustion-type)
(table terrain-initial-supply)
(table terrain-storage-x)
(table tp-max)
(table tp-per-toolup)
(table tp-to-build)
(table tp-attrition)
(table tp-crossover)
(table unit-initial-supply)
(table unit-capacity-x)
(table unit-size-as-occupant)
(table unit-size-in-terrain)
(table unit-storage-x)
(table unload-max)
(table vanishes-on)
(table visibility)
(table visibility-to-people)
(table withdraw-chance-per-attack)
(table wrecks-on)
(table zoc-into-terrain)
(table zoc-from-terrain-effect)
(table zoc-range)
(table zz-avg-build-time)
(table zz-basic-hit-worth)
(table zz-basic-capture-worth)
(table zz-basic-transport-worth)
(table zz-base-worth)
(table zz-depot-worth)
(table zz-carrier-worth)
(table zz-terrain-worth)

;;; The world.

(world 100
  (axial-tilt 30)
  (circumference 1000)
  (day-length 10)
  (year-length 400)
  )

(area 20 20
  (cell-width 10)
  (height 25)
  (initial-day-part 0)
  (initial-year-part 3)
  (latitude 40)
  (longitude 180)
  (width 30)
  )

(area (aux-terrain 1 "fnsifunosiv"))

(area (cloud-bottoms "xxxababababababa"))

(area (cloud-heights "xxxababababababa"))

(area (clouds "xxxababababababa"))

(area (elevations "xxxdvandkjanldfadreo"))

(area (features (("xxxfoo") ("xxxbar")) "xxxabababaaba"))

(area (material 0 "xxxdadkjnadvadfadf"))

(area (people-sides "xxxababababababa"))

(area (temperatures "xxxuhgfuhpoafnpuoafpjh"))

(area (terrain "xxxabcdebbcacdbee"))

(area (winds "xxxababababababa"))


(doctrine xxxdefault-doctrine
  )

(doctrine xxxbe-aggressive
  )

;;; Sides.

(side 1
  (name "xxxOneia")
  (long-name "Nation of xxxOneia")
  (short-name "xxxON")
  (noun "xxxOneian")
  (plural-noun "xxxOneiaa")
  (adjective "xxxOneian")
  (color-scheme "xxxgreen,blue")
  (colors "xxxgreen,blue")
  (color "xxxgreen,blue")
  (emblem-name "xxxstar")
  (names-locked true)
  (class "test")
  (active true)
  (status draw)
  (advantage 1)
  (advantage-min 1)
  (advantage-max 3)
  (controlled-by 0)
  (trusts)
  (trades)
  (next-numbers (xxxomnibus 46))
  (unit-namers)
  (feature-namers)
  (tech)
  (init-tech)
  (terrain-view)
  (unit-view)
  (unit-view-dates)
  (turn-time-used 3)
  (total-time-used 15)
  (timeouts 3)
  (timeouts 0)
  (finished-turn false)
  (willing-to-draw false)
  (task-limit 1)
  (doctrines (u* xxxdefault-doctrine) (xxxomnibus xxxbe-aggressive))
  (doctrines-locked false)
  (self-unit 0)
  (priority 1)
  (scores (xxxtest2 15))
  (ui-data)
  (ai-data)
  (player 1)
  )

(side 2
  (active false)
  (status win)
  )

(side 3
  (status lose)
  )

(side 4
  (controlled-by 1)
  )

(independent-units
  (color "xxxblack")
  )

;;; Players.

(player 1
  (name "xxxJoe")
  (config-name "xxx")
  (display-name "xxxscreen")
  (ai-type-name "xxxstupid")
  (password "xxxIUL8h786m")
  (initial-advantage 1)
  )

;;; Units.

(xxxcity 0 3 3 (plan none))

(unit 45 xxxF-15
  (@ 5 2 10000)
  (z 15000)
  (s 1)
  (# 3)
  (n "xxxCPT xxxSocks")
  (nb 34)
  (cp 1)
  (hp 1)
  (cxp 0)
  (m 0)
  (tp 0 0 0)
  (in 0)
  (feelings 0 0)
  (x (hi there) (appear 2) (disappear 4))
  (act (acp 1) (acp0 10) (aa 3) (am 3) (a move 4 2 15000))
  (plan passive)
  )

;;; Agreements.

(agreement 1
  (type-name "xxxtest")
  (title "xxxTreaty xxxof xxxTesting")
  (terms
    "xxxBe xxxexcellent xxxto xxxone xxxanother!"
    )
  (drafters 1)
  (proposers 1)
  (signers 1)
  (willing-to-sign 1)
  (known-to side*)
  (enforcement 0)
  (state 0)
  )

;;; Scorekeepers.

(scorekeeper test1
  (title "xxxFirst xxxTest xxxSK")
  )

;;; History.

(exu)

(evt log-started)
(evt game-started)
(evt side-joined)
(evt side-lost)
(evt side-withdrew)
(evt side-won)
(evt unit-started-with)
(evt unit-created)
(evt unit-completed)
(evt unit-acquired)
(evt unit-moved)
(evt unit-assaulted)
(evt unit-damaged)
(evt unit-captured)
(evt unit-killed)
(evt unit-wrecked)
(evt unit-vanished)
(evt unit-garrisoned)
(evt unit-disbanded)
(evt unit-starved)
(evt unit-left-world)
(evt game-ended)
(evt log-ended)
(evt action-ok)
(evt action-error)
(evt cannot-do)
(evt insufficient-acp)
(evt insufficient-material)
(evt not-implemented-yet)
(evt action-done)
(evt move-error)
(evt insufficient-mp)
(evt cannot-leave-world)
(evt destination-too-far)
(evt destination-full)
(evt overrun-failed)
(evt overrun-failed)
(evt fire-into-outside-world)
(evt fire-into-too-far)
(evt fire-into-too-near)
(evt fire-at-too-far)
(evt fire-at-too-near)
(evt too-far)
(evt too-near)

;;; other keywords

(define random-list
  (quote
    undefine
    independent-units
    include
    battle
    namer
    text
    print
    restrict
    appear
    disappear
    feelings
    quote
    list
    append
    remove
    if
    else
    end-if
    u*
    m*
    t*
    non-unit
    non-material
    non-terrain
    constant
    subarea
    xform
    by-bits
    by-char
    by-name
    random
    grammar
    junky
    tasks
    reset
    stop
    win
    lose
    draw
    end
    cell
    border
    connection
    coating
    river-x
    valley-x
    road-x
    over-nothing
    over-own
    over-border
    over-all
    usual
    reject
    any
    capitalize
    cond
    and
    or
    not
    =
    /=
    <
    <=
    >
    >=
    sum
    before-turn
    after-turn
    after-action
    after-event
    last-side-wins
    make-fractal-percentile-terrain
    make-random-terrain
    make-earthlike-terrain
    make-maze-terrain
    make-rivers
    make-countries
    make-independent-units
    make-initial-materials
    name-units-randomly
    name-geographical-features
    make-roads
    make-random-date
    attrition-in-terrain
    accidents-in-terrain
    units-revolt
    units-surrender
))